home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Advisor / CD-ROM Advisor.iso / blender / blen40m / shared.dir / 00795.ls < prev    next >
Encoding:
Text File  |  1994-08-22  |  2.0 KB  |  127 lines
  1. on SPEAK
  2.   set the movieRate of sprite 40 to 1.0
  3. end
  4.  
  5. on checkKey
  6.   set exit to 0
  7.   if the commandDown and (the key = "q") then
  8.     set exit to 1
  9.     endMOVIE()
  10.   end if
  11.   if the commandDown and (the key = ".") then
  12.     set exit to 1
  13.     endMOVIE()
  14.   end if
  15. end
  16.  
  17. on SETV0
  18.   global volume
  19.   set volume to 0
  20.   set the soundLevel to 0
  21. end
  22.  
  23. on SETV1
  24.   global volume
  25.   set volume to 1
  26.   set the soundLevel to 1
  27. end
  28.  
  29. on SETV2
  30.   global volume
  31.   set volume to 2
  32.   set the soundLevel to 2
  33. end
  34.  
  35. on SETV3
  36.   global volume
  37.   set volume to 3
  38.   set the soundLevel to 3
  39. end
  40.  
  41. on SETV4
  42.   global volume
  43.   set volume to 4
  44.   set the soundLevel to 4
  45. end
  46.  
  47. on SETV5
  48.   global volume
  49.   set volume to 5
  50.   set the soundLevel to 5
  51. end
  52.  
  53. on SETV6
  54.   global volume
  55.   set volume to 6
  56.   set the soundLevel to 6
  57. end
  58.  
  59. on SETV7
  60.   global volume
  61.   set volume to 7
  62.   set the soundLevel to 7
  63. end
  64.  
  65. on GOFOCUS
  66.   global n, DEST
  67.   repeat with n = 48 down to 1
  68.     puppetSprite(n, 0)
  69.     set the visible of sprite n to 1
  70.   end repeat
  71.   go("OPEN", DEST & "FOCUS")
  72. end
  73.  
  74. on GOFRICTION
  75.   global n, DEST
  76.   repeat with n = 48 down to 1
  77.     puppetSprite(n, 0)
  78.     set the visible of sprite n to 1
  79.   end repeat
  80.   go("OPEN", DEST & "FRICTION")
  81. end
  82.  
  83. on GOFEATURES
  84.   global n, DEST
  85.   repeat with n = 48 down to 1
  86.     puppetSprite(n, 0)
  87.     set the visible of sprite n to 1
  88.   end repeat
  89.   go("OPEN", DEST & "FEATURES")
  90. end
  91.  
  92. on GOFIXTURES
  93.   global n, DEST
  94.   repeat with n = 48 down to 1
  95.     puppetSprite(n, 0)
  96.     set the visible of sprite n to 1
  97.   end repeat
  98.   go("OPEN", DEST & "FIXTURES")
  99. end
  100.  
  101. on GOCONTENTS
  102.   global n, DEST
  103.   repeat with n = 48 down to 1
  104.     puppetSprite(n, 0)
  105.     set the visible of sprite n to 1
  106.   end repeat
  107.   go("OPEN", DEST & "CONTENTS")
  108. end
  109.  
  110. on GOMAP
  111.   global n, DEST
  112.   repeat with n = 48 down to 1
  113.     puppetSprite(n, 0)
  114.     set the visible of sprite n to 1
  115.   end repeat
  116.   go("MAP", DEST & "CONTENTS")
  117. end
  118.  
  119. on GOPANIC
  120.   global n, DEST
  121.   repeat with n = 48 down to 1
  122.     puppetSprite(n, 0)
  123.     set the visible of sprite n to 1
  124.   end repeat
  125.   play frame "OPEN" of movie DEST & "PANIC"
  126. end
  127.